home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1997 May / PC Plus Super CD Issue 127 (May 1997).iso / delphi2 / delphite.exe / data.z / AUTOCTL.DFM / AUTOCTL.txt
Encoding:
Text File  |  1996-08-12  |  1.5 KB  |  70 lines
  1. object Form1: TForm1
  2.   Left = 193
  3.   Top = 108
  4.   BorderStyle = bsSingle
  5.   Caption = 'Automation Controller Demo'
  6.   ClientHeight = 56
  7.   ClientWidth = 317
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   TextHeight = 13
  14.   object Panel1: TPanel
  15.     Left = 0
  16.     Top = 0
  17.     Width = 317
  18.     Height = 56
  19.     Align = alClient
  20.     TabOrder = 0
  21.     object Label1: TLabel
  22.       Left = 8
  23.       Top = 6
  24.       Width = 75
  25.       Height = 13
  26.       Caption = '&Company Name'
  27.       FocusControl = Edit1
  28.     end
  29.     object InsertBtn: TButton
  30.       Left = 232
  31.       Top = 12
  32.       Width = 75
  33.       Height = 25
  34.       Caption = 'Insert Query'
  35.       Default = True
  36.       TabOrder = 0
  37.       OnClick = InsertBtnClick
  38.     end
  39.     object Edit1: TEdit
  40.       Left = 8
  41.       Top = 22
  42.       Width = 185
  43.       Height = 21
  44.       TabOrder = 1
  45.       Text = 'Unisco'
  46.     end
  47.   end
  48.   object Query1: TQuery
  49.     DatabaseName = 'DBDEMOS'
  50.     SQL.Strings = (
  51.       'select Customer.Company, Orders.OrderNo, Orders.SaleDate '
  52.       '  from Customer, Orders'
  53.       '  where Customer.CustNo = Orders.CustNo'
  54.       '  and Customer.Company = :Company')
  55.     Params.Data = {0100010007436F6D70616E7900010700556E6973636F000001}
  56.     Left = 200
  57.     Top = 3
  58.     object Query1Company: TStringField
  59.       FieldName = 'Company'
  60.       Size = 30
  61.     end
  62.     object Query1OrderNo: TFloatField
  63.       FieldName = 'OrderNo'
  64.     end
  65.     object Query1SaleDate: TDateTimeField
  66.       FieldName = 'SaleDate'
  67.     end
  68.   end
  69. end
  70.